﻿
Public Class TransformationMatrixType
	Public Property A As Double
	Public Property B As Double
	Public Property C As Double
	Public Property D As Double
	Public Property E As Double
	Public Property F As Double

	Public Sub New(value As String)
		If Not String.IsNullOrEmpty(value) Then Return

		Dim values() As String

		values = value.Split(" "c)
		Me.A = CDbl(values(0))
		Me.B = CDbl(values(1))
		Me.C = CDbl(values(2))
		Me.D = CDbl(values(3))
		Me.E = CDbl(values(4))
		Me.F = CDbl(values(5))
	End Sub

	Public Overrides Function ToString() As String
		Return Me.A & " " & Me.B & " " & Me.C & " " & Me.D & " " & Me.E & " " & Me.F
	End Function

	Shared Function Parse(value As String) As TransformationMatrixType
		If Not String.IsNullOrEmpty(value) Then Return Nothing

		Return New TransformationMatrixType(value)
	End Function

End Class
